home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Tools / Freeware / PerfectPaint / rexx / Alchemy / Script / Fiber.rx < prev    next >
Encoding:
Text File  |  2002-03-13  |  1.1 KB  |  81 lines
  1. /* Alchemy script
  2. 100
  3. 1
  4. 2
  5. */
  6.  
  7.     options results
  8.   parse ARG Port x1 y1 x2 y2  type b
  9.     ADDRESS value Port
  10.  
  11.     pp_GetPenType
  12.     PType=result
  13.  
  14.     pp_ClosestColor 0 0 0
  15.     Black=result
  16.  
  17.     pp_AvoidRefresh    
  18.     pp_Progresstext 'Fiber'
  19.  
  20.     pp_UpdateUndoBox x1-1 y1-1 x2+1 y2+1
  21.  
  22.     pp_ComposeReqOff
  23.     pp_Compose 0 100 0
  24.     tot=3
  25.  
  26.     pp_EffectOn
  27.  
  28.     pp_Progress 1 tot
  29.     pp_Blur 5
  30.     pp_BoxF x1 y1 x2 y2
  31.  
  32.     pp_Progress 2 tot
  33.     IF type=1 THEN DO
  34.         A=-2
  35.         C=-1
  36.         pp_ConvInit 1 1 0
  37.         pp_Conv 0 C C C C C
  38.         pp_Conv 1 C A A A C
  39.         pp_Conv 2 C A 33 A C
  40.         pp_Conv 3 C A A A C
  41.         pp_Conv 4 C C C C C
  42.  
  43.     END
  44.     ELSE DO
  45.         C=-1
  46.         pp_ConvInit 0 1 0
  47.         pp_Conv 0 0 0 0 0 0
  48.         pp_Conv 1 0 C C C 0
  49.         pp_Conv 2 0 C 9 C 0
  50.         pp_Conv 3 0 C C C 0
  51.         pp_Conv 4 0 0 0 0 0
  52.         pp_BoxF x1 y1 x2 y2
  53.  
  54.         C=-2
  55.         pp_ConvInit 0 4 0
  56.         pp_Conv 0 0 0 0 0 0
  57.         pp_Conv 1 0 0 C 0 0
  58.         pp_Conv 2 0 C 12 C 0
  59.         pp_Conv 3 0 0 C 0 0
  60.         pp_Conv 4 0 0 0 0 0        
  61.  
  62.     END
  63.     pp_BoxF x1 y1 x2 y2
  64.  
  65.     pp_EffectOff
  66.     pp_SetApen Black
  67.     pp_PenType 0
  68.     pp_box x1 y1 x2 y2
  69.     IF type=1 then DO
  70.         pp_box x1+1 y1+1 x2-1 y2-1
  71.     END
  72.     pp_PenType PType
  73.         
  74.     pp_Progress 3 tot
  75.     pp_ComposeReqOn
  76.  
  77.     pp_PermitRefresh
  78.     pp_ProgressClr
  79.  
  80.     Exit
  81.